home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / LIB / TIMER.ALC < prev   
Text File  |  1985-04-07  |  827b  |  29 lines
  1.          TITLE 'TIMER - TIME OF DAY SUBROUTINE'
  2. *
  3. *  THIS SUBROUTINE RETURNS THE TIME OF DAY IN 100TH OF A SECOND
  4. *  IN R0 FOLLOWING CALL TO TIMER.
  5. *
  6. TIMER    CSECT
  7.          USING *,R15
  8.          SVC   18      R0 = HOURS, MINUTES, SECONDS, 100TH SEC
  9.          ST    R0,WORK
  10.          SR    R0,R0
  11.          IC    R0,WORK   R0=HOURS
  12.          MH    R0,=H'60'
  13.          SR    R1,R1
  14.          IC    R1,WORK+1
  15.          AR    R0,R1     R0=60*HOURS+MINUTES
  16.          MH    R0,=H'60'
  17.          IC    R1,WORK+2
  18.          AR    R0,R1     R0=60*(60*HOURS+MINUTES)+SECONDS
  19.          MH    R0,=H'100'
  20.          IC    R1,WORK+3
  21.          AR    R0,R1     R0=100*(60*(60*HOURS+MINUTES)+SECONDS)+100TH SEC
  22.          BR    R14
  23. R15      EQU   15
  24. R14      EQU   14
  25. R1       EQU   1
  26. R0       EQU   0
  27. WORK     DC    F'0'
  28.          END
  29.